#!/usr/bin/perl
use strict;
use Cwd 'abs_path';
use File::Basename;

my $svnroot = 'https://ssd-svn.juniper.net/vsdk';
my $workdir = '/volume/fsgtools/graph/rlog-ssd-vsdk';


my $bindir  = dirname(abs_path($0));
my $cmd;
$cmd = "perl -I $bindir $bindir/cron.pl"
     . " --svnroot $svnroot"
     . " --workdir $workdir"
     ;

print "doing: $cmd\n";

system $cmd;


